home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / mfm_111b.zip / HELP.PAS < prev    next >
Pascal/Delphi Source File  |  1992-01-07  |  4KB  |  106 lines
  1. {========================================================================}
  2. Procedure Help;
  3.   Begin
  4.     AnsiClearScreen; NewTextColor(7);
  5.     AnsiGotoXY(1,1); Write(Pgmid); WriteLn;
  6.     WriteLn('╔═[Navagate through list]════════════════════════════════════════════════════╗');
  7.     Write('║');
  8.     NewTextColor(9);
  9.     Write('          7 : TopOfList       8 : LineUp             9 : PageUp             ');
  10.     NewTextColor(7);
  11.     WriteLn('║');
  12.     Write('║');
  13.     NewTextColor(9);
  14.     Write('          1 : BottomOfList    2 : LineDown           3 : PageDown           ');
  15.     NewTextColor(7);
  16.     WriteLn('║');
  17.     WriteLn('╠═[Add, Edit and Rename]═════════════════════════════════════════════════════╣');
  18.     Write('║');
  19.     NewTextColor(10);
  20.     Write(' A : Adopt/Abandon         E : Edit Description        I : Insert Blank     ');
  21.     NewTextColor(7);
  22.     WriteLn('║');
  23.     Write('║');
  24.     NewTextColor(10);
  25.     Write(' R : Rename File           D : Change File Date       ^A : Adopt ALL        ');
  26.     NewTextColor(7);
  27.     WriteLn('║');
  28.     WriteLn('╠═[Copy or Move between areas]═══════════════════════════════════════════════╣');
  29.     Write('║');
  30.     NewTextColor(11);
  31.     Write(' C : Copy to New Area      M : Move to New Area                             ');
  32.     NewTextColor(7);
  33.     WriteLn('║');
  34.     Write('║');
  35.     NewTextColor(11);
  36.     Write(' $ : Mass Copy             # : Mass Move          <SP> : Toggle Tag         ');
  37.     NewTextColor(7);
  38.     WriteLn('║');
  39.     WriteLn('╠═[Move or Remove entries in list]═══════════════════════════════════════════╣');
  40.     Write('║');
  41.     NewTextColor(12);
  42.     Write(' < : Push Record     > : Pop Record   K : Kill Entry      U : UnKill Entry  ');
  43.     NewTextColor(7);
  44.     WriteLn('║');
  45.     Write('║');
  46.     NewTextColor(12);
  47.     Write(' [ : Stack Prev      ] : Stack Next   { : Prev Kill       } : Next Kill     ');
  48.     NewTextColor(7);
  49.     WriteLn('║');
  50.     Write('║');
  51.     NewTextColor(12);
  52.     Write(' ; : Show Stack                       : : Show Kill                         ');
  53.     NewTextColor(7);
  54.     WriteLn('║');
  55.     WriteLn('╠═[Sort list]════════════════════════════════════════════════════════════════╣');
  56.     Write('║');
  57.     NewTextColor(13);
  58.     Write(' F : Mark First   L : Mark Last   S : Sort by Name   T : Sort by Time       ');
  59.     NewTextColor(7);
  60.     WriteLn('║');
  61.     WriteLn('╠═[Search for string]════════════════════════════════════════════════════════╣');
  62.     Write('║');
  63.     NewTextColor(14);
  64.     Write(' ^F : In File Name       ^D : In Description         ^B : In Both           ');
  65.     NewTextColor(7);
  66.     WriteLn('║');
  67.     WriteLn('╠═[View]═════════════════════════════════════════════════════════════════════╣');
  68.     Write('║');
  69.     NewTextColor(9);
  70.     Write(' ALT-V : View File   ALT-F : Force SHEZ View    ALT-L : Force LIST View     ');
  71.     NewTextColor(7);
  72.     WriteLn('║');
  73.     WriteLn('╠═[Misc]═════════════════════════════════════════════════════════════════════╣');
  74.     Write('║');
  75.     NewTextColor(10);
  76.     Write(' N : New Area   W : Write List   ! : ReDraw Screen    ALT-S : Shell to DOS  ');
  77.     NewTextColor(7);
  78.     WriteLn('║');
  79.     WriteLn('╚════════════════════════════════════════════════════════════════════════════╝');
  80.     AnsiGotoXY(25,27);
  81.     NewTextColor(Blink+Red);
  82.     Write('Press any key to continue!');
  83.     NewTextColor(White);
  84.     AnsiGotoXY(1,80);
  85.     Gbx := GetInput;
  86.     ReDrawScreen;
  87.   End;
  88. {========================================================================}
  89. Procedure AreaHelp;
  90.   Begin
  91.     AnsiClearScreen; NewTextColor(7);
  92.     AnsiGotoXY(1,1); Write(Pgmid);
  93.     AnsiGotoXY(3,15); Write('7 : Upper Left      8 : Move Up            9 : Upper Right');
  94.     AnsiGotoXY(4,15); Write('4 : Move Left                              6 : Move Right');
  95.     AnsiGotoXY(5,15); Write('1 : Lower Left      2 : Move Down          3 : Lower Right');
  96.     AnsiGotoXY(7,15); Write('TAB : Add temporary path');
  97.     AnsiGotoXY(25,27);
  98.     NewTextColor(Blink+Red);
  99.     Write('Press any key to continue!');
  100.     NewTextColor(White);
  101.     AnsiGotoXY(1,80);
  102.     Gbx := GetInput;
  103.     SetupScreen;
  104.   End;
  105. {========================================================================}
  106.